home *** CD-ROM | disk | FTP | other *** search
/ Suzy B Software 2 / Suzy B Software CD-ROM 2 (1994).iso / extras / programm / gemfsc20 / gemfsc20.lzh / GEMFBIND / VSLENDS.S < prev    next >
Text File  |  1993-03-16  |  1KB  |  43 lines
  1. ;*========================================================================
  2. ;* VDIFAST Public Domain VDI bindings.
  3. ;*    09/06/89 v1.3:
  4. ;*                Fixed DRI bug in vsl_ends. This function returns 2 words,
  5. ;*                but the DRI docs don't mention that.  The binding was
  6. ;*                fixed to provide a pointer to a stack-allocated area to
  7. ;*                hold the 2 words, but the words are not returned to the
  8. ;*                caller since the DRI docs don't allow for that.
  9. ;*========================================================================
  10.  
  11.  
  12. ;*------------------------------------------------------------------------
  13. ;* Set polyline end styles.
  14. ;*------------------------------------------------------------------------
  15.  
  16.           globl     _vsl_ends
  17. _vsl_ends:
  18. ;          .cargs    #8,handle.w,begstyle.w,endstyle.w
  19.  
  20. handle      =         8
  21. begstyle  =         10
  22. endstyle  =         12
  23.  
  24.           link        a6,#-4
  25.  
  26. ;          VContrl    #108,,,#2
  27.           move.w    handle(a6),-(sp)    ; contrl[6]
  28.           clr.l     -(sp)                ; contrl[5,4]
  29.           move.w    #2,-(sp)            ; contrl[3]
  30.           subq.l    #2,sp                ; contrl[2]
  31.           clr.w     -(sp)                ; contrl[1]
  32.           move.w    #108,-(sp)            ; contrl[0]
  33.  
  34.           subq.l    #4,sp                ;* -> ptsout
  35.           pea        -4(a6)                ;* -> intout
  36.           subq.l    #4,sp                ;* -> ptsin
  37.           pea        begstyle(a6)        ;* -> intin
  38.           pea        16(sp)                ;* -> contrl
  39.  
  40.           jmp        vdicall
  41.  
  42.           end
  43.